       01  W-DEVICE-REDUC13.
           03                          PIC X(33)   VALUE
               '003914199480040024647500610467021'.
           03                          PIC X(33)   VALUE
               '008905717480090046987401060179942'.
           03                          PIC X(33)   VALUE
               '010718932630108257436002271150913'.
           03                          PIC X(33)   VALUE
               '025925450310308001893603151822887'.
           03                          PIC X(33)   VALUE
               '031822707610377001306303780005695'.
           03                          PIC X(33)   VALUE
               '038504756040386087542103890003603'.
           03                          PIC X(33)   VALUE
               '039000039760391000688103920005249'.
           03                          PIC X(33)   VALUE
               '039300167170394000387303950004026'.
           03                          PIC X(33)   VALUE
               '039600024470397000586803980006004'.
           03                          PIC X(33)   VALUE
               '040000049160401000315504020018769'.
           03                          PIC X(33)   VALUE
               '040300088790404001037004060005192'.
           03                          PIC X(33)   VALUE
               '040800536190414002427804250569872'.
           03                          PIC X(33)   VALUE
               '064802290580654057073406550745760'.
           03                          PIC X(11)   VALUE
               '06800436218'.
       01  W-DEVICE-REDUC-TABLE REDEFINES W-DEVICE-REDUC13.
           03  DEV-RED13 OCCURS 40 TIMES
                   ASCENDING KEY IS DEV-APC13
                   INDEXED BY DEV-INDX13.
               05  DEV-APC13           PIC X(4).
               05  DEV-REDUC13         PIC 9(5)V99.
       01  DEV-MAX13                   PIC S9(7)   COMP-3
                                       VALUE +40.
